home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Resources / CDROM / IDE-fix / c / UnInstall < prev    next >
Text File  |  1997-11-30  |  2KB  |  112 lines
  1. ;$VER: IDEfix UnInstall 49.1 (30.11.97)
  2. ;Copyright ©1993-1997 Elaborate Bytes, Oliver Kastl
  3.  
  4. (onerror
  5.     (makeassign "CacheCDFSInst" (safe))
  6.     (makeassign "CacheCDFS" (safe))
  7. )
  8.  
  9. (complete 0)
  10.  
  11. (makeassign "CacheCDFSInst" "" ( safe) )
  12.  
  13. (set #theirlevel @user-level )
  14.  
  15. (user 2)
  16.  
  17. (message "\nWelcome to the IDE-fix 97 uninstallation program!" )
  18.  
  19. (message "\nWARNING!!!!!\n\n"
  20.          "Click PROCEED only, if you wish to REMOVE IDE-fix '97 from your computer!\n\n"
  21.          "This progrm MUST be started from the directory, where IDE-fix '97 was installed!!!" )
  22.  
  23.  
  24. (if (NOT (exists "CacheCDFSInst:CacheCDFSUninstall.dat" ))
  25.     (
  26.     (abort "\nCan't find CacheCDFSInst:CacheCDFSUninstall.dat!\n\n"
  27.            "UnInstall MUST be started from the directory, where IDE-fix '97 was installed!!!" )
  28.     )
  29. )
  30.  
  31. (user #theirlevel)
  32.  
  33. (makeassign "CacheCDFS" "" (safe))
  34.  
  35. (set @default-dest "CacheCDFS:")
  36.  
  37. (working "\nRestoring old installation ..." )
  38.     
  39. (complete 10 )
  40.  
  41. (if ( run "BackupIDEfixInstall CacheCDFS:Backup" )
  42.     (
  43.     (abort)
  44.     )
  45. )
  46.  
  47. (complete 60 )
  48.  
  49. (working "\nDeleting current installation ..." )
  50.  
  51. (if ( run "delete <NIL: >NIL: CacheCDFS:#? all" )
  52.     (
  53.     (abort)
  54.     )
  55. )
  56.  
  57. (complete 80 )
  58.  
  59. (startup "CacheCDFS"
  60.     (prompt "\n\nRemoving IDEfix User Startup from the user-startup")
  61.     (help "\n\nRemoving IDEfix User Startup from the user-startup")
  62. )
  63.  
  64. (startup "MountLS120"
  65.     (prompt "\n\nRemoving MountLS120 from the user-startup")
  66.     (help "\n\nRemoving MountLS120 from the user-startup")
  67. )
  68.  
  69. (startup "ActivateCrossIDEfix"
  70.     (prompt "\n\nRemoving ActivateCrossIDEfix from the user-startup")
  71.     (help "\n\nRemoving ActivateCrossIDEfix from the user-startup")
  72. )
  73.  
  74. (makeassign "CacheCDFSInst" (safe))
  75. (makeassign "CacheCDFS" (safe))
  76.  
  77. (complete 90 )
  78.  
  79.     (if (exists "S:Startup-Sequence.std")
  80.         (
  81.         ( protect "S:Startup-Sequence.std" "-e +rwsd" )
  82.         (if (exists "S:Startup-Sequence")
  83.             (
  84.             ( protect "S:Startup-Sequence" "-e +rwsd" )
  85.             (delete "S:Startup-Sequence")
  86.             )
  87.         )
  88.         (rename "S:Startup-Sequence.std" "S:Startup-Sequence")
  89.         )
  90.     )
  91.  
  92.     (if (exists "C:KeyCheck")
  93.         (
  94.         (user 2)
  95.         (delete "C:KeyCheck" 
  96.             (help "Select \"Proceed\", if you want C:KeyCheck to be deleted.")
  97.             (prompt "\n\nDelete C:KeyCheck ?")
  98.             (confirm)
  99.         )
  100.         )
  101.     )
  102.  
  103. (user 2)
  104. (complete 100 )
  105. (message "\nWARNING:\n\n"
  106.             "Don't forget to remove any manually inserted \"LoadIDE\" "
  107.          "or \"IDEfix\" statements from your startup-sequence!" )
  108.  
  109. (message "\n\nIDE-fix '97 uninstalled!" )
  110.  
  111. (exit (quiet ))
  112.